inherited frmEstFatCarga: TfrmEstFatCarga
  Left = 163
  Top = 145
  Caption = 'Estorno do faturamento da carga'
  ClientHeight = 473
  ClientWidth = 772
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 772
    object Label1: TLabel
      Left = 24
      Top = 20
      Width = 79
      Height = 14
      Caption = 'Carga N'#250'mero'
    end
    object btnCarga: TSpeedButton
      Left = 178
      Top = 16
      Width = 23
      Height = 22
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = btnCargaClick
    end
    object edtCarga: TEdit
      Left = 112
      Top = 16
      Width = 65
      Height = 22
      CharCase = ecUpperCase
      MaxLength = 6
      TabOrder = 0
      OnEnter = edtCargaEnter
      OnExit = edtCargaExit
      OnKeyDown = edtCargaKeyDown
      OnKeyPress = edtCargaKeyPress
    end
  end
  inherited Panel2: TPanel
    Width = 772
    Height = 349
    object grbPedidos: TGroupBox
      Left = 3
      Top = 3
      Width = 766
      Height = 170
      Align = alTop
      Caption = ' Pedidos :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label9: TLabel
        Left = 704
        Top = 56
        Width = 51
        Height = 15
        Caption = 'Natureza'
      end
      object dbgPedidos: TDBGrid
        Left = 2
        Top = 17
        Width = 762
        Height = 151
        Align = alClient
        DataSource = dsPedidos
        FixedColor = 14081504
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnCellClick = dbgPedidosCellClick
        OnKeyDown = dbgPedidosKeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'Pedido'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Nota'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Serie'
            Width = 41
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cliente'
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Nome'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OrdemEntrega'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CodFisc'
            Title.Caption = 'C'#243'd. Fiscal'
            Visible = True
          end>
      end
    end
    object grbItens: TGroupBox
      Left = 3
      Top = 171
      Width = 766
      Height = 175
      Align = alBottom
      Caption = ' Itens :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      TabStop = True
      object dbgItens: TDBGrid
        Left = 2
        Top = 17
        Width = 762
        Height = 156
        Align = alClient
        Color = clInfoBk
        DataSource = dsItens
        FixedColor = 14081504
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnDblClick = dbgItensDblClick
        OnKeyPress = dbgItensKeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'Produto'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Descricao'
            Width = 318
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Quant'
            Title.Caption = 'Quantidade'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Valor'
            Title.Caption = 'Valor Unit'#225'rio'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CodFisc'
            Title.Caption = 'C'#243'd. Fiscal'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Seq'
            Title.Caption = 'Seq.'
            Width = 34
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Estorna'
            Width = 62
            Visible = True
          end>
      end
    end
  end
  inherited Panel4: TPanel
    Top = 406
    Width = 772
    inherited BtnEliminar: TFlatButton [0]
      Left = 29
      Visible = False
    end
    inherited btnlistagem: TFlatButton [1]
      Left = 629
      Visible = False
    end
    inherited btnGravar1: TBitBtn [2]
      Left = 41
      Top = 12
    end
    inherited btnCancelar1: TBitBtn [3]
      Left = 339
      Top = 12
    end
    inherited btnFechar1: TBitBtn [4]
      Left = 636
      Top = 12
    end
    inherited BtnEliminar1: TBitBtn [5]
      Left = 34
      Top = 12
    end
    inherited btnlistagem1: TBitBtn [6]
      Left = 643
      Top = 20
    end
    inherited btnGravar: TFlatButton [7]
      Left = 26
      Caption = 'Estorna&r'
    end
    inherited btnCancelar: TFlatButton [8]
      Left = 330
    end
    inherited btnFechar: TFlatButton
      Left = 634
    end
  end
  inherited BS: TStatusBar
    Top = 454
    Width = 772
  end
  inherited Timer1: TTimer
    Left = 528
    Top = 2
  end
  inherited RDP: TRDprint
    Left = 556
    Top = 2
  end
  object cdsPedidos: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 416
    Top = 2
    object cdsPedidosNota: TStringField
      FieldName = 'Nota'
      Size = 9
    end
    object cdsPedidosSerie: TStringField
      FieldName = 'Serie'
      Size = 3
    end
    object cdsPedidosPedido: TStringField
      FieldName = 'Pedido'
      Size = 10
    end
    object cdsPedidosCliente: TStringField
      FieldName = 'Cliente'
      Size = 5
    end
    object cdsPedidosNome: TStringField
      FieldName = 'Nome'
      Size = 40
    end
    object cdsPedidosOrdemEntrega: TStringField
      FieldName = 'OrdemEntrega'
      Size = 3
    end
    object cdsPedidosCodFisc: TStringField
      DisplayWidth = 5
      FieldName = 'CodFisc'
      Size = 5
    end
  end
  object dsPedidos: TDataSource
    DataSet = cdsPedidos
    Left = 444
    Top = 2
  end
  object cdsItens: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 472
    Top = 2
    object cdsItensNota: TStringField
      FieldName = 'Nota'
      Size = 9
    end
    object cdsItensSerie: TStringField
      FieldName = 'Serie'
      Size = 3
    end
    object cdsItensPedido: TStringField
      FieldName = 'Pedido'
      Size = 10
    end
    object cdsItensCliente: TStringField
      FieldName = 'Cliente'
      Size = 5
    end
    object cdsItensProduto: TStringField
      FieldName = 'Produto'
      Size = 15
    end
    object cdsItensDescricao: TStringField
      FieldName = 'Descricao'
      Size = 70
    end
    object cdsItensQuant: TFloatField
      FieldName = 'Quant'
    end
    object cdsItensValor: TFloatField
      FieldName = 'Valor'
    end
    object cdsItensCodFisc: TStringField
      DisplayWidth = 5
      FieldName = 'CodFisc'
      Size = 5
    end
    object cdsItensEstorna: TStringField
      FieldName = 'Estorna'
      Size = 1
    end
    object cdsItensSeq: TIntegerField
      FieldName = 'Seq'
    end
  end
  object dsItens: TDataSource
    DataSet = cdsItens
    Left = 500
    Top = 2
  end
  object cdsItensGer: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 360
    Top = 2
    object cdsItensGerNota: TStringField
      FieldName = 'Nota'
      Size = 9
    end
    object cdsItensGerSerie: TStringField
      FieldName = 'Serie'
      Size = 3
    end
    object cdsItensGerPedido: TStringField
      FieldName = 'Pedido'
      Size = 10
    end
    object cdsItensGerCliente: TStringField
      FieldName = 'Cliente'
      Size = 5
    end
    object cdsItensGerProduto: TStringField
      FieldName = 'Produto'
      Size = 15
    end
    object cdsItensGerDescricao: TStringField
      FieldName = 'Descricao'
      Size = 70
    end
    object cdsItensGerQuant: TFloatField
      FieldName = 'Quant'
    end
    object cdsItensGerValor: TFloatField
      FieldName = 'Valor'
    end
    object cdsItensGerCodFisc: TStringField
      DisplayWidth = 5
      FieldName = 'CodFisc'
      Size = 5
    end
    object cdsItensGerEstorna: TStringField
      FieldName = 'Estorna'
      Size = 1
    end
    object cdsItensGerSeq: TIntegerField
      FieldName = 'Seq'
    end
  end
  object dsItensGer: TDataSource
    DataSet = cdsItensGer
    Left = 388
    Top = 2
  end
end
